------------------------------------
#news  new-1  scyl

/*
#news  new-6 csph
#news  new-2 opipe
#news  new-3 cpipe
#news  new-4 ocyl
#news  new-5 ccyl
*/

/*
#subd  opipe_y  
1 opipe sp  0 0 0 /  0 0 30  10 20  0 180  1 0 0 0 0 -1
#end opipe_y
*/

#eq cos5 9.961946981E-01
#eq cosm5 -9.961946981E-01
#eq sin5 8.715574275E-02 
#eq sinm5 -8.715574275E-02 
#eq cos10  9.848077530E-01
#eq cosm10 -9.848077530E-01
#eq sin10  1.736481777E-01
#eq sinm10 -1.736481777E-01
#eq r      2   	
#eq h      1.749773271E+00
#eq  cos20  9.396926208E-01
#eq  sinm20  -3.420201433E-01
#eq  cos30   8.660254038E-01
#eq  sinm30   -0.5
#eq  cos60    0.5
#eq  sinm60  -8.660254038E-01

#subd  uring  
1 scyl Fe   0 0 0 / -1.003819838E+01 0 0  r  h    sin5 0 cosm5   sin5 0 cos5  cos5 0 sinm5  0 1 0
#end uring


#subd  tring
1 uring 0 0 0 / 0 0 0
2 uring 0 0 0 / 0 0 0  cos10 0 sinm10 0 1 0
3 uring 0 0 0 / 0 0 0  cos20 0 sinm20 0 1 0
#end tring

#subd qring
1 tring 0 0 0 /0 0 0
2 tring 0 0 0 / 0 0 0 cos30 0 sinm30 0 1 0
3 tring 0 0 0 / 0 0 0 cos60 0 sinm60 0 1 0
#end qring

#subd  hring
1 qring 0 0 0 / 0 0 0
2 qring  0 0 0 / 0 0 0   0 0 -1 0 1 0
#end hring


#subd wring
1 hring 0 0 0 / 0 0 0
2 hring 0 0 0 / 0 0 0 -1 0 0 0 1 0
#end wring

1 wring Al 0 0 0 / 0 0 0
2 wring SCIN 0 0 0 / -5 0 -5  1 0 0 0 0 -1
3 hring 0 0 0 / 0 0 0  0 1 0  -1 0 0 
-------------------------------------










